home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / graphics / quicktim / hmvplay.cpt / HyperMovie Player 3.0 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1992-10-27  |  2.4 KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>3</cardCount>
  7.     <cardID>2930</cardID>
  8.     <listID>5016</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>480</width>
  14.         <height>344</height>
  15.     </cardSize>
  16.     <script>-- HyperMovie Player
  17. -- By Kevin Harris
  18. -- Copyright ┬⌐ 1992 Software Perspectives. All Rights Reserved.
  19. -- VERSION 3.0 - OCTOBER 1992
  20.  
  21. on openStack
  22. global openFlag, windowType, playFlag
  23. hide menuBar
  24. put false into openFlag
  25. put false into playFlag
  26. put cd fld "WindTypeFld" into windowType
  27. resetControls
  28. visual effect dissolve to black
  29. wait 2 ticks
  30. visual effect dissolve slow
  31. go cd "About"
  32. end openStack
  33.  
  34. on closeMovie
  35. global openFlag,WindowName
  36. put "" into cd fld "MooVName"
  37. put "" into MovieWindow
  38. put false into openFlag
  39. set hilite of cd btn "Loop" to false
  40. set hilite of cd btn "Mute" to false
  41. end closeMovie
  42.  
  43. on openMovie WindowName,WindowID
  44. global MovieWindow
  45. put WindowName into MovieWindow
  46. end openMovie
  47.  
  48. on arrowKey what
  49. -- do nothing
  50. end arrowKey
  51.  
  52. on resetControls
  53. global windowType
  54. set the name of cd btn 9 of cd 1 to "Turn Loop On"
  55. set the name of cd btn 10 of cd 1 to "Turn Mute On"
  56. set icon of cd btn 10 of cd 1 to 1000
  57. put 7 into cd fld "VolFld" of cd 1
  58. set the name of cd btn 13 of cd 1 to "Show Controls"
  59. send mouseUp to cd btn windowType of cd 1
  60. if the hilite of cd btn 16 of cd 1 is true then
  61. send mouseUp to cd btn 16 of cd 1
  62. end if
  63. end resetControls
  64.  
  65. on checkSettings
  66. global MovieWindow
  67. if the short name of cd btn 9 is "Turn Loop Off" then
  68. set the loop of window MovieWindow to true
  69. else
  70. set the loop of window MovieWindow to false
  71. end if
  72. if the short name of cd btn 10 is "Turn Mute Off" then
  73. set the mute of window MovieWindow to true
  74. else
  75. set the mute of window MovieWindow to false
  76. end if
  77. if the short name of cd btn 13 is "Hide Controls" then
  78. set the controllerVisible of window MovieWindow to true
  79. else
  80. set the controllerVisible of window MovieWindow to false
  81. end if
  82. end checkSettings</script>
  83.     <background id="2609" file="background_2609.xml" name="" />
  84.     <card id="2930" file="card_2930.xml" marked="false" name="Main" owner="2609" />
  85.     <card id="2128" file="card_2128.xml" marked="false" name="About" owner="2609" />
  86.     <card id="3888" file="card_3888.xml" marked="false" name="Credits" owner="2609" />
  87. </stack>
  88.